home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok07 / queue / testofqueue.mod < prev    next >
Encoding:
Text File  |  1993-11-04  |  2.1 KB  |  66 lines
  1. (*********************************************************************
  2.  *                                                                   *
  3.  *  :Program.    TestOfQueue.mod                                     *
  4.  *  :Author.     Michael Frieß                                       *
  5.  *  :Address.    Kernerstr. 22a                                      *
  6.  *  :shortcut.   [MiF]                                               *
  7.  *  :Version.    1.0                                                 *
  8.  *  :Date.       14.09.88                                            *
  9.  *  :Copyright.  PD                                                  *
  10.  *  :Language.   Modula-II                                           *
  11.  *  :Translator. M2Amiga                                             *
  12.  *  :Imports.    Queue     (at least V1.0 --> Amok#7)                *
  13.  *  :Contents.   Test of module Queue                                *
  14.  *                                                                   *
  15.  *********************************************************************)
  16.  
  17. MODULE TestOfQueue;
  18.  
  19. FROM InOut    IMPORT WriteString, WriteLn;
  20. IMPORT Queue;
  21.  
  22. TYPE data = ARRAY [1..30] OF CHAR;
  23.  
  24. VAR q : Queue.queue;
  25.     Data : data;
  26.  
  27. BEGIN
  28.   WriteString ("Test of module queue:"); WriteLn;
  29.   WriteLn;
  30.  
  31.   WriteString ("* Initialize queue q"); WriteLn;
  32.   Queue.Init (q);
  33.  
  34.   WriteString ("* insert first element"); WriteLn;
  35.   Data := "First entry";
  36.   Queue.Write (q, Data);
  37.  
  38.   WriteString ("* insert second element"); WriteLn;
  39.   Data := "Second entry";
  40.   Queue.Write (q, Data);
  41.  
  42.   WriteString ("* insert third element"); WriteLn;
  43.   Data := "Third entry";
  44.   Queue.Write (q, Data);
  45.  
  46.   WriteString ("* read first element"); WriteLn;
  47.   Queue.Read (q, Data);
  48.   WriteString (Data); WriteLn;
  49.  
  50.   WriteString ("* insert fourth element"); WriteLn;
  51.   Data := "Fourth entry";
  52.   Queue.Write (q, Data);
  53.  
  54.   WriteString ("* read all elements until end of queue"); WriteLn;
  55.   WHILE NOT Queue.Empty (q) DO
  56.    Queue.Read (q, Data);
  57.    WriteString (Data); WriteLn
  58.   END;
  59.  
  60.   WriteString ("* discard queue"); WriteLn;
  61.   Queue.Discard (q);
  62.  
  63.   WriteString ("* End of Test"); WriteLn;
  64.  
  65. END TestOfQueue.
  66.